gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGpic.asp
<!-- #INCLUDE FILE="login.asp" --> <% '///****************************************************************** ' 所有广告图列表显示 '******************************************************************/// Call AdminQx(2,"") Dim pageurl:pageurl="?actions="&trim(request("actions"))&"&wei="&request("wei")&"&keyword="&request("keyword")&"&cid="&trim(request("cid"))&"&pid="&trim(request("pid"))&"&xslx="&trim(request("xslx"))&"&act="&trim(request("act"))&"&px="&request("px")&"&" '分页连接公共地址 Dim rssum:rssum=0 Dim maxpage:maxpage=10 Dim pp:pp=10 Dim font_color:font_color="red" thepages="10" Dim addsql addsql="" Dim xslx action=trim(request("action")) 'response.write action&" " select case action case "ruku" dqw="验证新添加的广告条信息" Call Heads_GGtiao(dqw) call GgtiaoxxRuku() case "act" call GGtiaoClose(trim(request("adids")),trim(request("actz"))) call GGtiaoMain() case "ip" call GGtiaoIpkg(trim(request("adids")),trim(request("ipz"))) call GGtiaoMain() case else dqw="已有广告图" call GGpicMain() end select '/******************************************************************** ' GGpicMain() 分页列表显示不同广告图 '********************************************************************/ sub GGpicMain() Call Heads_GGpic(dqw) '' 开始分页显示广告图主体效果 %> <table border=0 cellspacing=0 cellpadding=0 width=100%> <tr> <td valign="top"> <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript"> function checkAll(ks,js) { for (var i=ks;i<js;i++) { var e = document.form1.elements[i]; var boolValue = document.form1.selectAll.checked; if (e.name != "selectAll" ) { e.checked = boolValue; } } } </SCRIPT> <table border=0 width=100% cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF> <tr align=center> <td> <table border=0 width=98% cellspacing=5 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF> <tr bgcolor=#C0C0C0><td colspan=3></td></tr><tr><td colspan=3 height=10></td></tr> <tr align=center> <%i=0 sql="select * from Pictrue " rs.open sql,conn,1,1 '' 分页设置部分 if rs.eof and rs.bof then rssum=0 else rssum=rs.recordcount end if call PubPageGs() if int(viewpage)<>1 then rs.move (viewpage-1)*nummer end if ids="" us="" for i=1 to nummer if rs.eof then exit for ''''''''''' ids=ids&","&rs(0) us=us&"/$/"&rs(1) %> <%if Lcase(right(trim(rs(1)),3))="swf" then 'response.write "<td><embed src='"&rs(1)&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='120'></embed></td>" %> <td height=90> <SCRIPT LANGUAGE="JavaScript"> document.write('<embed src=\"<%=rs(1)%>\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"120\" height=\"90\"></embed>'); </SCRIPT> </td> <% else %><td height=90> <SCRIPT LANGUAGE="JavaScript"> document.write('<img border=0 src=\"<%=rs(1)%>\" onload=\"if((this.width/this.height)>(12/9)){this.width=120;}else{this.height=90;}\">'); </SCRIPT> </td> <% end if if i mod 3 =0 then idss=split(ids,",") uss=split(us,"/$/") response.write "</tr><tr align=center><td height=30>PID="&idss(1)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(1)&"&u="&uss(1)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td><td height=30>PID="&idss(2)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(2)&"&u="&uss(2)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td><td height=30>PID="&idss(3)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(3)&"&u="&uss(3)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td></tr><tr height=1><td bgcolor=#C0C0C0></td><td bgcolor=#C0C0C0></td><td bgcolor=#C0C0C0></td></tr><tr><td colspan=3 height=10></td></tr><tr align=center>" ids="" us="" end if if i=rssum and i mod 3=1 then idss=split(ids,",") uss=split(us,"/$/") response.write "</tr><tr align=center><td height=30>PID="&idss(1)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(1)&"&u="&uss(1)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td></tr><tr height=1><td bgcolor=#C0C0C0></td></tr><tr><td colspan=3 height=10></td></tr><tr align=center>" ids="" us="" end if if i=rssum and i mod 3=2 then idss=split(ids,",") uss=split(us,"/$/") response.write "</tr><tr align=center><td height=30>PID="&idss(1)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(1)&"&u="&uss(1)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td><td height=30>PID="&idss(2)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(2)&"&u="&uss(2)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td></tr><tr height=1><td bgcolor=#C0C0C0></td><td bgcolor=#C0C0C0></td></tr><tr><td colspan=3 height=10></td></tr><tr align=center>" ids="" us="" end if rs.movenext next %> </tr> </table> </td> </tr> <% rs.close %> <tr height=30> <td> 共 <%=rssum%> 个,分 <%=thepages%> 页,每页 <%=nummer%> 个, 页码:<%=PubPage1(maxpage,thepages,viewpage,pageurl,pp,font_color)%></td> </tr> </table> <% end sub %>